home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt32s1.arc / DOXMODU2.PAS < prev    next >
Pascal/Delphi Source File  |  1985-10-16  |  1KB  |  39 lines
  1. BEGIN (* Do_Xmodem_Upload *)
  2.                                    (* Set comm. parms to 8,n,1 *)
  3.  
  4.    Xmodem_Bits_Save   := Data_Bits;
  5.    Xmodem_Parity_Save := Parity;
  6.    Xmodem_Stop_Save   := Stop_Bits;
  7.  
  8.    IF ( Data_Bits <>  8  ) OR
  9.       ( Parity    <> 'N' ) THEN
  10.          Async_Reset_Port( Comm_Port, Baud_Rate, 'N', 8, 1 );
  11.  
  12.                                    (* Perform transfer *)
  13.    CASE Transfer_Protocol OF
  14.  
  15.       Xmodem_Chk   : Send_Xmodem_File( FALSE );
  16.  
  17.       Xmodem_CRC   : Send_Xmodem_File( TRUE  );
  18.  
  19.       Telink,
  20.       Modem7_CRC   : Send_Modem7_File( TRUE );
  21.  
  22.       Modem7_Chk   : Send_Modem7_File( FALSE );
  23.  
  24.       Ymodem_Batch : Send_Ymodem_File;
  25.  
  26.       Ymodem       : Send_Xmodem_File( TRUE  );
  27.  
  28.       ELSE ;
  29.  
  30.    END  (* Case *);
  31.                                    (* Reset comm parms to saved values *)
  32.  
  33.    IF ( Xmodem_Bits_Save   <>  8  ) OR
  34.       ( Xmodem_Parity_Save <> 'N' ) THEN
  35.          Async_Reset_Port( Comm_Port, Baud_Rate, Xmodem_Parity_Save,
  36.                            Xmodem_Bits_Save, Xmodem_Stop_Save );
  37.  
  38. END   (* Do_Xmodem_Upload *);
  39.